home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / eiffel.lha / flc / framework / SET < prev    next >
Encoding:
Text File  |  1996-01-27  |  619 b   |  32 lines
  1.  
  2. -- a SET is an unordered collection of elements.
  3. -- Elements can only occur one time.
  4. -- Time complexity for data adding is O(1).
  5. -- Time complexity for data searching is O(n).
  6. -- Space complexity is O(n).
  7.  
  8. indexing
  9.  
  10.   names: set;
  11.   contents: generic;
  12.  
  13.   author: "Guichard Damien";
  14.   created: 9,November,1995;
  15.   modified: 9,November,1995
  16.  
  17. class SET inherit BAG
  18.   rename count as cardinal
  19.   redefine add
  20.   end
  21. feature
  22.   add (element:SET) is
  23.     -- Add an element to the set.
  24.     do
  25.       if find(element) = Void then
  26.         element.set_next(next)
  27.         set_next(element)
  28.       end
  29.     end -- add
  30. end -- class 'SET'
  31.  
  32.